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CHAPTER ONE 


FLOATING POINT INTERPRETER 


Introduction: 


The GRI Floating Point Intrepreter is a complete system that allows the 
user to process data in floating point arithmetic. Floating point arithmetic, 
through the we of multiple precision arithmetic and an exponential sogeaek 
greatly extends the range of precision available to the user beyond that of 
fixed point arithmetic. It also, through utility routines, frees the user 
of the bookkeeping involved with scaling and unscaling of numbers that is 


necessary in a fixed point system. 


GRI computers have an instruction set which is known as machine language. 
The computer reads instruction sede sit of its memory and hardware is ac- 
tivated by the interpretation of each instruction word to cause the execution 
of that instruction. An interpretive software system fetches instructions 
which we shall call commands from the computer's memory and causes various 
subroutines to be entered as a result of the interpretation of the command. 
These commands fetched by the interpreter are also called psuedo-instructions 
because their format deviates from the machine's instruction format. The 


Standard machine format instruction is 


WORD 1 SDA MOD DDA- 


WORD 2 [ADDRESS] (if a memory reference in- 
struction) 


A pseudo-instruction or command such as the ones used in the GRI Floating 
Point Interpreter looks like this: 


WORD 1 OP CODE 


WORD 2 [ADDRESS] (if a memory reference pseudo-instruction) 


The interpreter actually simulates the process used by the computer's 


hardware to execute an instruction. The interpreter fetches the OP CODE words 
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and addresses, sets up arguments, flags, and performs a function on the ar- 


gument(s) as specified by the OP CODE of the pseudo-instruction. 


An interpretive approach to floating point arithmetic provides the user 
with a functionally oriented language that makes usage of floating point 
arithmetic much easier than if it were done through a series of subroutines 
called in machine language. The user references floating point numbers 
with a single adduess which is the first address of the two word floating 
point number. The interpreter takes care of the address bookkeeping neces- 
sary for two word argument handling. The interpreter also maintains a BGe 
of accumulators much the same as an arithmetic unit. Arguments and results 


are manipulated and left in these accumulators. The interpreter utilizes 


two such accumulators plus an index register. 


There are a set of commands in the interpretive system that are not 
floating point arithmetic commands. These are program control commands such 
as conditional jumps and index register manipulators. The index is simply 
used to keep track of the number of times command loops are executed. These 
commands, although they could be effected by use of basic machine language, 
are also provided in the interpretive mode because they can save the user time 
that would be spent entering and leaving the interpretive mode, and almost 


always save space in terms of the coding needed. 


When the user is ready to execute commands in his program, he first is- 
sues a machine language command that causes a jump to the interpreter to take 
place. The interpreter now assumes control and starts fetching commands which 
follow the jump that caused interpretive mode entry. If the user wishes to 
begin executing machine language instructions, he must issue an interpretive 


command that causes the interpreter to relinquish control. In essence, the 
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machine is running in two different modes; a machine language mode and a 


psuedo-language mode -- in this case, a floating point language. 


The GRI interpretive system offers a novel error trap feature which 
may be invoked by the user to assist ta evading down places in the program 
Where data values are causing error checks to occur. Errors such as dividing 
by 0, exceeding the capacity of the psuedo-accumulators in either the mantissa 
or exponent portions, etc., can all be caused by an unknown data base. All 
manipulations of data refer to manipulations in and out of the psuedo-accumulator 
called FAC. This accumulator behaves like the accumulator in an adding machine. 
It must be loaded to initialize it, stored to save it, and all arithmetic op- 
erations leave their results in the accumulator. Commands with two operands 
are called binary commands and operate on a data word in user memory and 
the contents of FAC, replacing the result in FAC. Commands with one operand 


are called unary commands and operate on FAC, leaving their results in FAC. 


Let us consider a simple example: 


Compute R = x2 + y2 


JU SSFI senter floating mode 

FLDA X ;fetch X to FAC 

FMPY X :x2 in FAC 

FSTA Tl ;store FAC in temporary loc 
FLDA Y sfetch Y to FAC 

FMPY Y ;3¥2 in FAC 

FADD T1 ;x2 + Y° in’ FAC 

FSQT ; Nx? + y2 in FAC 

FSTA R sstore result in R 


FEXT sexit from floating mode 
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1.2 Basic Package, $SFI: 


Floating point arithmetic capabilities are provided through an inter- 
pretive package. Associated with the package is an external<»internal for- 
mat data conversion routine that can be easily tailored to the character set 


being processed. 


The interpretive package is invoked by a normal subroutine call. The 
call is followed by a string of commands that are established by use of 
equate statements during the assembly. The last command in the sequence 
causes a return to the calling program. Operations are performed using a 
pseudo acCumulator maintained locally by the interpretive package. The 
package also contains a 16 bit pseudo index to allow loops within the command 
sequence. Without this feature, it would be necessary to exit and re-enter the 
interpretive package and perform loop counts outside the interpreters Al- 
though the latter procedure is, in most instances, faster in terms of time 
taken to do the loop, it usually involves considerably more code and, there- 


fore, takes more space. 


As an example of a typical problem programmed in the interpreter 


language, we evaluate the polynomial 
Y = Ag + AyX + Apx2 + A3x3 + AgX" 
which can iteratively be expressed as Y = (CCA, X4A,) tA) KtA, ) X+A, 


as follows: 


LOOP: 


CONST: 


A3: 


M4: 


JU 


FLDX 


FLDA 


FMPY 


FADDD 


FJIX 


FSTA 


WRD 


WRD 


SSFI 


0,0 
A3-1 


X1,X2 


A41,A42. 


A31,A32 
A21,A22 
A11,A12 
A01,A02 


-4 
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;ENTER INTERPRETER 

;LOAD PSEUDO INDEX WITH -4 

;LOAD PSEUDO-ACCUMULATOR 
;MULTIPLY IT BY X 

;DEFERRED ADD A3 (THEN A2, Al, AO) 
;COUNT THE LOOP | 


3;STORE RESULT IN Y 


_ 3EXIT THE INTERPRETER 


;STORAGE SPACE FOR ANSWER 
3DEFERRED ADDRESS (GETS CHANGED) 
3TWO WORD FLOATING POINT VALUE OF X 


;FLOATING A4 VALUE 


3A0 


3ONE WORD INDEX COUNT VALUE 
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1.3 Floating Point Format: 


Internal representation of a floating point number occupies two successive 
locations in memory and consists of a fixed point fraction (mantissa) with an 
associated exponent. The mantissa is in two's complement notation with a 
sign bit followed by 23 bits of significance. The binary point is assumed 
to be immediately to the right of the sign. The exponent, which is the power 
of two by which the mantissa is multiplied, has the range -200g to +1778 
(2-128 t> 2t127),. This exponent is represented in "excess 200g" notation by 
adding +200, to the true exponent. This requires a total of 8 bits and the 


range of the excess 200g notation is 000 to 377g, where 200g represents 20, 


Thus, a floating point number looks like: 


15 14° 0. 
Word 1 (16 bits) is | Fraction - most significant 
15 87 


o 
Word 2 (16 bits) Fraction - least significant] Exponent. 


This format allows an accuracy of 6+ decimal digits and a range of +1.469368x107 9 


to +1.701411x10t38, 


To obtain correct results, all floating point operations (except FLDA, 
FSTA and FNOR) require the floating point numbers being operated on to be 
normalized; that is, bit 14 of word 1 must be ive most significant bit of 
the fraction (mantissa). The only exception to this requirement is a floating 
point zero, which has no significant bits--a normalized floating point zero 
is two words of all zero (mantissa = 0, excess 200g exponent = 0). 
Note: The mantissa of a normalized floating point number other than zero 


has an absolute value in the range 1/24|mantissa| <1. 
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Examples: 

Decimal Internal Floating Point (octal) 
word 1 word 2 
1.0 040000 000201 
1.25 | 050000 000201 
-1.0 140000 000201 
“1.25 130000 000201 
100. _ 062000 000207 
-100. 116000 ~—-:000207 
0.5 040000 000200 
0.25 - 940000 ~=——-000177 
T 062207. + 166602 
AT/2 062207 166601 
-T 115570 011602 


1.4 Internal Registers: 


There are three pseudo-registers contained in the interpreter i) the 
pseudo-accumulator (FAC), ii) a temporary pseudo-accumulator (FTM), and 


iii) the pseudo-index register (FINDX). 


i) FAC - The floating pseudo-accumulator. This consists of three 
locations in the interpreter and is used to contain the left-hand argument 
of a binary floating point command as well as the results of any floating 
point command. It is organized as follows: 

FACHI - contains high order mantissa and sign of value in FAC 
FACLO - contains low order mantissa of value in FAC 


FACXP -— contains excess 2000 exnonent of value in FAC 


1-8 
FLOATING POINT MANUAL 
74-44-001-C 


ii) FIM - temporary pseudo-accumulator. This consists of three lo- 
cations analogous to FAC. They are named FIMHI, FIMLO, and FIMXP. The 
temporary accumulator is used to hold an additional floating point value 
for those commands which require two feasting point values in order to op- 


erate, e.g. a type II (binary) command (see 2.2.2). 


iii) FINDX - pseudo index. This consists of one location of the same 


name and holds the current value of the index. 


Note: FACHI, FACLO and FIMHI, FIMLO are treated as full 31 bit double 
precision quantities for the basic arithmetic operations add, sub- 


tract, multiply, and divide. 
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pene OO TRG 
CHAPTER TWO 
BASIC COMMANDS 
2.1 Command Categories: 
The commands are of the following categories: 
I load & store ; the command specifies the source or destina- 


tion of floating point data - the corresponding 
destination or source is the pseudo accumula- 


tor. 


II binary 
commands 3; the command specifies the source of the 
rightmost operand - the floating accumulator 
contains the leftmost operand. The result 
will be in the accumulator. 
III unary 
commands — 3; the command merely specifies the function to 
be performed on the accumulator. The result 
will be in the accumulator. 

IV index 

commands ; the command specifies the source or destina- 
tion of an index value - the corresponding 
destination or source is the pseudo index. 

V conditionals 3; the command specifies an address to which con- 
trol passes if the test defined by the command 
is true - the address must contain another 
floating point command. Tests may be per- 
formed on the floating accumulator, certain 
flags, and the index. 

VI exit ; this command causes a return to the calling 


program. 
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The load & store (Type I) and binary (Type II) commands may 
specify deferred (indirect and auto-indexed) addressing mode. Deferred 
addressing in floating point commands operates exactly as in machine 


language. 


Command Descriptions: 
2.2.1 TYPE I COMMANDS - LOAD & STORE COMMANDS 
LOAD FLOATING ACCUMULATOR (AC) 


mnemonic address code no. of words 


FLDA X Ol 2 


The sbiitenes of the location specified by X and X + 1 are treated as 
a floating point number and are loaded into the floating point pseudo ac- 
cumulator. The floating point number in locations Xx and X + 1 is split into 
three parts i) X, which consists of the high order mantissa, goes into 
FACHI; ii) bits 8-15 of X + 1, which consists of the low order mantissa, 
goes into bits 8-15 of FACLO and bits 0-7 of FACLO are set to zero; and 
iii) bits 0-7 of X + 1, which consists of the excess 200, exponent, goes 


into bits 0-7 of FACXP and bits 8-15 of FACXP is set to zero. 
DEFERRED LOAD FLOATING AC 


mnemonic address code no. of words 


FLDAD A 101 2 


The contents of location A is incremented by one, replaced in A, and 
the result is used as the effective address X; then the contents of A are 
incremented and replaced a second time forming the effective address X + 1. 
The contents of X and X + 1 are then treated as a floating point number and 


loaded into FAC as explained under FLDA. 
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STORE FLOATING AC 


mnemonic address code no. of words 


FSTA X 02 2 


y 


The contents of FAC are rounded into bit 8 of FACLO, bits 0-7 of FACLO 
are set to zero. Then FACHI, FACLO, and FACXP are packed into a floating 
point number and stored in X, and X +1. Note that this operation alters 


FAC so that it agrees with the value stored in X,. and X +1. 


It is also possible for the rounding operation to cause exponent over- 
flow (excess 200g exponent exceeds +377,). This can occur only if the 
number being rounded is very close to the largest possible positive float- 


ing point number. The value stored in this case will be X = 077777g, 


X + 1 = 177777., and FXFLG will bé set non-zero. A successful FSTA will set 


8? 
FXFLG to zero. 


DEFERRED STORE FLOATING AC 


mnemonic address code no. of words 


FSTAD A 102 2 


The contents of A are incremented twice as explained under FLDAD, form- 
ing effective addresses X and X + 1 into which FAC is stored as explained 


under FSTA. 
2.2.2 TYPE II COMMANDS — BINARY COMMANDS 


All Type II commands depend on both FAC and the argument of the 
command to have normalized mantissas. If unnormalized summers are: 
used, the results are unpredictable. A FNOR instruction (see 2.2.3) is 
provided to normalize any quantity if it is necessary to do so. Also, 


if all inputs are normalized, the results in FAC will be normalized as 
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will the value retrieved from FAC by use of an FSTA instruction. 


Type II commands can cause exponent underflow or overflow if the 
number created in FAC by the command has an excess 200. exponent out- 
side the range 0 to +377g respectively. The occurrence of either 
condition is indicated by FXFLG being non-zero after the operation 
has been completed. It may be tested by use of the FJEV command. 


The successful completion of a Type II command will set FXFLG to zero. 


FLOATING ADD 
mnemonic address code no. of words 


FADD Xx 03 : 2 


The floating point number in locations X and X + 1 are added to 


the contents of FAC, and the result replaces FAC. 


DEFERRED FLOATING ADD 
mnemonic address code no. of words 


FADDD A 103 2 


The contents of A are incremented twice as explained under FLDAD, 
forming effective addresses X and X + 1, the contents of which are 


added to FAC, and the result replaces FAC. 
FLOATING SUBTRACT 


mnemonic address code no. of words 


FSUB Xx 04 Z 


The floating point number in locations X and X + 1 are subtracted 
from the contents of FAC, and the result replaces FAC. 
DEFERRED FLOATING SUBTRACT 


mnemonic address code no. of words 


FSUBD A 104 2 
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Effective address is formed from A as in FADDD. 
FLOATING MULTIPLY 
mnemonic address code no. of words 


FMPY X 05 2 


FAC is multiplied by the floating point number in X and X +1. 
The result replaces FAC. 


DEFERRED FLOATING MULTIPLY 


mmemonic address code no. of words 


FMPYD A - 105 2 


Effective address is formed from A as in FADDD. 


FLOATING DIVIDE 


a 


mnemonic address code no. of words 


FDIV Xx 06 2 


FAC is divided by the floating point number in X and X +1. The 
result replaces FAC. Divide check will occur if X, X + 1 is zero or 
not normalized. This causes FAC to be set to the largest possible 
floating point number of the sign which would be the result of the 
divide if it could take place, and the divide check flag (FDFLG) will 
be non-zero. A successful divide sets FDFLG to zero. 

Note - if both FAC and X are 0, the result will be the largest 
possible positive floating point number in FAC with FDFLG set non-zero. 

DEFERRED FLOATING DIVIDE 
mnemonic address code no. of words 
FDIVD A 106. 2 


Effective address is formed from A as in FADDD. 
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FLOATING ADD MAGNITUDE 


mnemonic address code no. of words 


FADM Xx 07 2 


The absolute magnitude of the floating point number in X and 


X + 1 is added to FAC. The result replaces FAC. 
DEFERRED FLOATING ADD MAGNITUDE 


mnemonic — address code no. of words 


FADMD A 107 2 
Effective address is formed from A as in FADDD. 
FLOATING SUBTRACT MAGNITUDE 


mnemonic address code no. of words 


FSBM . x 10 2 


The absolute magnitude of the floating point number in X and 


X + 1 is subtracted from FAC. The result replaces FAC. 
DEFERRED FLOATING SUBTRACT MAGNITUDE 


mnemonic address code no. of words . 


FSBMD A 110 2 


Deferred subtract magnitude. Effective address is formed from 


A as in FADDD. — 
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2.2.3 TYPE III COMMANDS - UNARY COMMANDS 


FLOATING ABSOLUTE VALUE 


memonic address code no. of words 


FABS none 14 1 


; . | 
The absolute value of the FAC replaces the FAC, i.e. | FAC 


replaces FAC. 


FLOATING SQUARE 


mnemonic address code no. of words 
FASQ none 15 1 
The square of FAC is returned in FAC. This instruction requires 


that the mantissa of FAC be normalized prior to execution as in 


type II instructions (see 2.2.2). 
FLOATING NORMALIZE 


mnemonic address code no. of words 


FNOR none . 16 1 


The contents of FAC are normalized and replace FAC. This in- 
struction can cause exponent overflow or underflow in which case FAC 
will contain the largest possible negative floating point number or 


all zeros respectively and FXFLG will be set non-zero. A successful 


normalize will set FXFLG to zero. 


FLOATING NEGATIVE VALUE 


mnemonic address code no. of words 


FNEG none 17 1 


The contents of FACHI and FACLO are twos complemented, i.e. -FAC 


replaces FAC. 
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2.2.4 TYPE IV COMMANDS —- INDEX COMMANDS ; 
LOAD INDEX 
mnemonic address code no. of words 
FLDX I 27 2 


The pseudo-index is loaded with the 16 bit contents of location I. 


STORE INDEX 
mnemonic address code no. of words 
FSTX it 30 2 


The 16 bit pseudo-index is stored into location I. 
(2.2.5 TYPE V COMMANDS - CONDITIONALS 


These commands allow the program to alter the path of control which the 
interpreter is following based on the results of certain tests. The lo- 
cation to which the interpreter is caused to transfer must contain a valid 
floating point command. If the interpreter should sncouibex an invalid com- 
mand at any time during execution, it will come to a halt with the address 
of the illegal command displayed in the MB register on the front Senet. This 


is the only halt in the program. 
JUMP UNCONDITIONAL 


mnemonic address code no. of words 


FJMP C 20 2 


Unconditional jump. The interpreter will take the next command 


from location C and continue from there. 
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JUMP IF AC POSITIVE 
mnemonic address code no. of words 
FJAP C 21 2 


If FAC is positive or zero, the interpreter takes the next 
command from location C. Otherwise, the interpreter continues with | 


the command following the FJAP command. 


JUMP IF AC ZERO 


mnemonic address code no. of words 


FJAZ Cc 22 2 


location C. Otherwise, the interpreter continues with the command 
following the FJAZ command. Note: The interpreter tests only FACHI 
for zero. FAC may be non-zero and FACHI = 0 only if the number in 

FAC is not normalized. This condition cannot be created by the inter- 
preter unless the user has introduced sn omualieed aunbecs into his 


calculations (see 2.2.2). 


JUMP IF AC NEGATIVE 


mnemonic address code no. of words 
FJAN C 23 2 


If FAC is negative, the interpreter will take the next command 
from location C. Otherwise, the interpreter continues with the com- 


mand following the FJAN command. 
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JUMP IF EXPONENT OVERFLOW (OR UNDERFLOW) 


mnemonic address code no. of words 


FJEV C 24 2 


If FXFLG is non-zero, the interpreter will take the next command 
from location C and set FXFLG to zero. Otherwise, the interpreter will 
continue with the command following the FJEV command. The FJEV command 
is used to detect the occurrence of either exponent overflow or exponent 
underflow resulting from the execution of the last preceding Type II command 
or FSTA, FNOR, or FASQ. If desired, the type of overflow may be detected 
by an FJAZ command at location C, since exponent underflow returns FAC=0, 
and exponent overflow returns the largest number (+ or -) in FAC. 
JUMP IF DIVIDE CHECK 
mnemonic address code no. of words 
FJDC C 25 2 
If FDFLG is non-zero, the interpreter will take the next command 
from location C and set FDFLG to zero. Otherwise, the interpreter con- 
tinues with the command following the FJDC command. The FJDC command is 
used to detect the occurrence of divide check during execution of the last 
previous FDIV or FDIVD command. If desired, one may test whether the con- 
dition occurred because the divisor was 0 or not normalized by checking the 
divisor with an FLDA and FJAZ instruction at idesvion C. 
JUMP IF INCREMENTED INDEX NOT ZERO 
mnemonic address code no. of words 


FJIX C 26 2 


The pseudo-index (FINDX) is incremented by one, and if the result is 


non-zero, the interpreter takes the next command from location C. 
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If the result is 0, the interpreter continues with the command follow- 
ing the FJIX instruction. The pseudo-index will contain the incremented 


value whether or not the jump occurs. 
2.2.6 TYPE VI COMMAND - EXIT 


EXIT FLOATING INTERPRETER 


mnemonic address code no. of words 
FEXT none 0 1 


This command causes the interpreter to return control to the 


ha 
ic 


user at the location immediately following the FEXT. None of t 
internal registers or flags are altered by either the FEXT or entering 


the package. The AO is returned in the ADD state. 


3.4 
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CHAPTER THREE 


DATA CONVERSION ~ 


Introduction: 


Two conversion routines are provided; one to convert from floating point 
to character, the other to convert from character to floating point. Both 
conversion routines are core to core operations rather chances bound to a 
particular 1/0 device (that is, characters are fetched from and stored into 
memory). For added flexibility, all characters are referenced with ain index 
into a character set table called @FCST, which initially contains 8-bit 
ASCII codes. Changing ie charsetex set for a specific I/O device can easily 


be accomplished by changing the character codes in @FCST. 


External floating point format is expressed as a mantissa or fraction 
portion and a power of ten by which the mantissa is multiplied. This is 


written as +n.nnnnnn E +nn, where n:is a decimal digit. The number to the 


mantissa exponent 


right of the E is the power of ten by which the mantissa is multiplied. Thus, 


-3.527614EH03 is -3.527614*103 or -3527.614. _ The floating point number 


+172 .100123E-02 is +172.100123+107@ or +1.72100123. 
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3.2 Floating Point to Character Conversion: 
- NAME; @SFC 
SUBROUTINES CALLED: SSFI, @FXxC 
ALTERED REGISTERS & FLAGS: FAC, FIM, FXFLG, FDFLG 
CALLING SEQUENCE: JU @SFC 
. WRD el-1 
WRD e2 
WRD e3 
return 
ARGUMENTS : el is the address of the location into 


which the first output character is 


.to be stored. 


e2 is the address of the two word float- 
ing point argument. The argument need 
not be normalized but the magnitude must 
be zero or in the range (27129 , 2+128) 
(in decimal this is 1.469367E-39 to 
1.701411E+38) 


e3 is the address of the error return. 


FUNCTION: | Converts a signed two word floating 
point argument to a string of thirteen 
characters, stored one character per 
word, right justified starting in lo- 
cation el. The character string is of 


the format 


(| n.nnnnnn E(+}nn 


where n is character representation of a 


‘decimal digit. 


ERRORS : 


NOTE: 


LENGTH: 


Description of Algorithm: 
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If normalization of the floating point 
argument caused either exponent over- 
flow or underflow, an * is stored rather 
than a leading + or - sign, and when 
conversion is completed, control returns 
to e3. The * can be considered a - sign. 
An argument resuiting in overflow con- 
verts to * 1.701411 E + 38. An argu- 
ment resulting in underflow converts to 
*0.000000 E + 00. 


The magnitude of the three smallest nor- 


malized non-zero floating point numbers 


are converted to one of the character 
strings +1.469367E-39 or +1.469368E-39. 
These two character strings cannot be 
converted back to a floating point number. 
The smallest character string which can 
successfully be converted to a floatin 
point number is +1.469369E-39. Therefore, 
if the user converts any one of these 
three numbers to a string of characters, 
he should be aware that he cannot sSuc- 


cessfully convert the string back to 


a’ floating point number. 


3068 (19840) locations 


The sign of the floating point argument is stored, the argument is then 


normalized, and the absolute value is taken and used for conversion. If nor- 


_ malization caused either exponent overflow or underflow, the error return is 


taken when conversion is completed and an asterisk (which may be considered 


as a '-'), is stored rather than a leading sign. 
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k 
Since the output character string is of the fora{t}a.annanntinn, the 


floating point argument is first manipulated to make it greater than or 
equal to one and less than ten. (If the floating point argument is exactly 
zero, this portion of the algorithm is bypassed.) Making ig floating 

point argument €10 is accomplished by first checking if it is>1. If it 
is not, it is multiplied by the largest possible soak of ten (10 38) and, 
if necessary, it is multiplied once again by ten to force it21l. The ar- 
ere is then checked for<€ 10. If it is not€ 10, it is forced so by 
dividing by the largest power of ten, which is less than the argument. The. 
powers of ten used in multiplying and dividing the argument to force its 


value to be between one and ten are used to form the exponent portion of 


the character string. 


With the floating point argument (stored in FAC) now21 and<10, the 
mantissa portion of the character string can be formed. FACHI, FACLO is 
treated as a double precision mixed number with FACXP showing the position 
of the binary point. FACHI, FACLO is left shifted (with overflow bits shifted 
into a 3rd word) until the binary point immediately precedes bit 15 of FACHI. 
The overflow word is then converted to character and stored as the first digit 
of the mantissa, immediately followed by a decimal nae, Tie Branton pos 
tion of the mantissa is formed by successively multiplying FACHI, FACLO by 
1049 and storing the most significant word of the 3 word product. The ex- 


ponent is then converted and stored, preceded by an E and either a + or - sign. 
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3.3 Character to Floating Point: 
NAME: @SCF 
SUBROUTINES CALLED: SSFI, @FXC 
ALTERED REGISTERS & FLAGS: . FAC, FIM, FXFLG, FDFLG 
CALLING SEQUENCE: JU @SCF 
WRD el-1 | 
WRD e2 
WRD e3 
return 
ARGUMENTS: . al is the address of the first character 
in the string to be converted. The char- 


acter string should be stored one charac- 


‘ter per word right justified in the format 


4 n [n...] s  iiset4 . { | n[n] [A...] [a 1 
+ 
: > FP) eines] eo j J 


The notational conventions are: 


\ 


1. nis a decimal digit 

2 A is a space 

3. > isa delimiter 

4. braces [] contain optional items 
which may or may not be included. 

5. braekets { }contain alternate items 
where one and only one of the items 
must.be included. 

6. ellipses ... denote permissible 
repetition of the preceding item. 


The string is treated as follows: 


1. If there is no sign, it is treated as +. 
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2. If the leading sign is * or -, it 
is treated as -. 

3. If there is no decimal point, it is 
assumed to follow the last mantissa 
digit. 

4. Characters are processed up to and 
including the first, or 1339 char- 


acters have been processed. 


e2 is the address where the two word 


floating point answer is stored. 
e3 is the address of the error return. 


FUNCTION: Converts a string of decimal characters 
to a two word normalized floating point 
answer. The two word normalized float- 
ing point answer is returned in registers 
AX (MSH), AY (LSH), and is stored in lo- 
cation e2 (MSH) and e2+1 (LSH). The AO 


is returned in the ADD state. 


ERRORS; A scan error occurs if the character 
string is illegally formed. Location 
@SCF+3 is set to zero and control im- 


mediately returns to e3. 


An overflow error occurs if the charac- 

ter string contains more than 1049 man- 
tissa digits (discounting leading zeros) 

or if the magnitude of the number is out- 
side the range 1.469369E-39 to 1.701411E+38. 
Location @SCF+3 is set to one and control 


immediately returns to e3. 


Whenever control returns to e3, the AO 


is in the ADD state. 


a 
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NOTES : See NOTES under @SFC. 
LENGTH: 406g (26219) locations 


Description of Algorithm 


The mantissa portion of the character string is converted toa 
double precision integer by muiteipieingethe answer by 10)9 and adding 
in the latest digit. This double precision mantissa is then converted 
to a normalized floating point number. A count of the number of digits 
to ene right of the decimal point is kept and, after the exponent portion 
of the character string has been converted, this Siete count ia, quneten ted 
from it to obtain the final seeonetts, The magnitude of the final exponent 
is used as an index into the positive floating point powers of oe table 
(see 3.6). The floating point number obtained from the mantissa portion 
‘of the character string is then multiplied (if she final exponent was 
positive) or divided (if the final exponent was negative) by this power 
of ten to form the final floating point answer. If there was a leading 
minus sign or asterisk, the floating point answer is two's complemented 


before return. 


3.4 Common Tables & Routines; 


The conversion routines @SFC and @SCF reference a common routine called 
@Fxc, which has four entry points. @FXC occupies a total of 213, (13949) 
locations. Since @FXC is common to both @SFC and @SCF, it need appear only 
once if the conversion poutines are used together. In the discussion of @FXC 
- which follows, each of the four entry points is treated separately for the 


sake of clarity. 


3.5 Character Set Table: 


NAME: 


FUNCTION: 


NOTES : 


LENGTH: 
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@FCST 


Common external character set table for 


floating point data conversion routines. 


The table is ordered as follows: 


Location Contents 
@FCST code for zero 
@FCST+1 code for nine 
@FCST+2 code for + 
 @FCST+3 code for - 

@FCST+4 code for * 
@FCST+5 code for . 

@FCST+6 code for E 

@FCST+7 code for space 
@FCST+10 _ code for delimiter 


The standard table is in full 8-bit ASCII. 


The delimiter character at @FCST+10g is a 
carriage return and may be changed if 


desired. 


The entire table may be replaced with a 
different character set provided that the 
numeric codes in the new set are sequential 
and the code for zero (0) is less than the 
code for nine. No code may occupy more 


than 15 bits. 


12g (1010) locations 
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3.6 Floating Point Powers of Ten Table; 
NAME: | @FPT 
FUNCTION: , Common floating point positive powers of 


1049 table for floating point data con-— 
version routines. Each floating point 
power occupies two locations in the table. 


The table is organized as follows: 


@FPT: WRD 45473,46777 constant for 1078 
WRD 74136,160773 constant for 103/ 
WRD 40000, 201 constant for 100 
NOTE: . @FPT is located at @FCST+12, 


LENGTH: . 116 (7819) locations 


3.7 Left Shift FAC: 


NAME: 
SUBROUTINES CALLED: 
ALTERED REGISTERS & FLAGS: 


CALLING SEQUENCE: 


ARGUMENTS : 


_ FUNCTION: 


ERRORS ; 
NOTES : 


LENGTH: 
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@LSHF 
none 
none 


Load AX with the negative shift count 
JU @LSHF 


return 


Register AX contains minus the number of 


places to left shift FACHI, FACLO 


Performs double precision left shift of 
FACHI, FACLO. On return, the shifted 
result is in AX (MSH), AY (LSH). Any 


_carry out of MSH is found in location 


@DIG+1. 
none detected 


@LSHF=@FCST + 170, 


@DIGHI=G@LSHF + 14g 
23 (19, 0) locations 
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3.8 Multiply FAC by Ten: 

NAME: @10xX 

SUBROUTINES CALLED: @LSHF 

ALTERED REGISTERS & FLAGS: FAC 

CALLING SEQUENCE: JU @10X 

ARGUMENTS : n/a 

FUNCTION: Performs unsigned multiplication of 


FACHI, FACLO by 10;9. The most sig- 


= YY = = — ¥ eV et 


is returned in AY. The second and 
third words of the product are found 


in FACHI, FACLO respectively. 
ERRORS : n/a 


NOTES: @10X=@FCST+130., 


LENGTH: 40. (3249 ) locations 


4.1 
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CHAPTER FOUR 


EXTENDED COMMANDS 


Introduction: 


In addition to the basic floating point interpreter, a set of mathematical 
functions is supplied which can be invoked by a command in the same line with 
the basic commands. These functions also call the floating interpreter and 
since the interstate: has already been. entered at this point, a nish eaows 
scheme is supplied to allow recursive calls such as this. The pisicnows list 


will accomodate recursive calls up ‘to seven levels. 


It should be noted that all pseudo registers - the floating accumulator, 
the benpeeary accumulator and index - and the flags, FDFLG and FXFLG, are 
common to all levels of the recursion. In other words, if an extended func- 
ftoii which calls the interpreter recursively is invoked by a command: these 
registers and/or flags may be altered. Information detailing such factors 


is supplied in the documentation accompanying the individual package. 


The push-down scheme and command code structure is tailored so that the 
user may easily add his own functions. The procedure for doing this is 


described in section 5.3. 


The mathematical subroutines which are supplied with the extended package 
are SINE, COSINE, ARC TANGENT, LOG,, EXPONENTIAL, and SQUARE ROOT. The com- 
mands associated with these are FSIN, FCOS, FATN, FLNE, FEXP, and FSQT (codes 
31, 32, 33, 34, 35, and 36) respectively. They each perform the desired 
function on the contents of the floating pseudo-accumulator and return the 
results in the same register. Errors which can result, such as teemeee 


to take the square root or log of a negative number, are flagged by the 
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routines in internal locations not accessible in interpretive mode, i.e. 
cannot be tested with an interpreter command. An error trap routine is 
available which will handle these and other errors when they occur (see 


Appendix E). 


In the writeups that follow, FAC is the floating pseudo-accumulator, 
FIM is the temporary floating pseudo-accumulator, FDFLG is the divide check 


flag, FXFLG is the exponent overflow flag, and FINDX is the pseudo-index. 
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4.2 Sine, Cosine: 
COMMAND: FSIN (code 31), FCOS (code 32) 
FUNCTION: a. FSIN - calculates the SINE of the 


contents of FAC which is assumed to be 
a radian argument and replaces FAC 


with the result. 


b. FCOS - calculates the COSINE of 
the contents of FAC which is assumed to 
be a radian argument and replaces FAC 


with the result. 


ERRORS : none 
ALTERED REGISTERS & FLAGS: FAC, FIM, FXFLG 
METHOD: ; For FCOS, the absolute value of FAC is 


subtracted from Jf/2 (=1.570796) and the 
SINE of the result is taken. 


multiplied by 2/¥f to convert it into 
units of a quarter circle, and the result 
is checked for its absolute magnitude 
being less than one. If so, it is a 
first quadrant quantity and the procedure 
continues with the series calculation 
described later. If the magnitude of the 
result is greater than or equal to one, 
its sign is saved, it is forced positive, 
and the integer portion is shifted out - 
leaving a positive fraction (referred to 
as Y in the following). ‘The last two 
bits of the integer portion and the sign 
are used to determine which quadrant the 
original argument was in and the quantity 


Y is altered as follows: 
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sign last_two bits Y quadrant 

+ 00 YDPY I 

+ 01 1-Y > Y II 

+ 10 | | -Y>Y III 

+ 11 .-1+YDY | IV 

- 00 -Y—>Y IV 

- | 01 -l1+Y—yY 7 ‘qt 

- 10 be II 

a a ey I 


This new value of Y is then treated as a fraction and is normalized. 


The series used to calculate the sine is basically a 5 term Chebyshev 
economized polynomial approximation of a 6 term McLaurin series for sin Fy 
The coefficients are further "adapted":-to allow the series to be calculated 
with one less multiplication than would be the case for a standard polynomial 


evaluation procedure. This results in the sine being calculated as follows: 
“v) = = * * * 
sin a) ((Z -Y + Ay) Z + A,) A, Y 


where 

Z= (¥Y+Ao) *Y +A, 
and 

Ag = -14.93104811 

Ay = ~39.74079011 

Ay = +367.8139482 

A3 = +23410.00773 


= +0 .0001514440767. 


> 
7 
1 


Accuracy is 6 + significant decimal digits for arguments in the first 
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quadrant ( | raci<%. Accuracy loss is about two thirds of a decimal 
digit for each complete rotation, i.e. if 21 n<|Fac| <2Ti (n+), the ac- 


curacy is about 6 - Sn decimal digits. 
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4.3 Arc Tangent: 

COMMAND: | FATN (code 33) 

FUNCTION: | The arc tangent of the epavenes of FAC 
| replace FAC. The result is in radians 

and lies in the range ( -% +O. 
_ ERRORS: | none 
“ALTERED REGISTERS & FLAGS: FAC, FIM, FDFLG, FEELG | 
METHOD: | SS The Reis (FAC) is checked for the. 


absolute magnitude being greater than or 
equal to one. If so, a flag is set and 
the reciprocal of the argument is taken 


and replaces FAC. 


The arc tangent of the quantity in FAC 
‘is then approximated by 


(Ap + A X24 Aox4) 
Z = ATAN X = X * (Bo + BlX2+ BoX4) 
where X is the argument and 
9.6402481953 
1 = 04229908144 — 
= 0.0264694361 | 
0.6402487022 
0.6363779373 
0.1108 328778 | 


SPP TPs 
H 8 wo @ & 8 


If the flag was set by the initial check, 
the value Z is checked for + or ~. If Z 
is +,\5 - Z}replaces Z.. If Z is -, | 
(- 3+ z) replaces Z. (This is effected 
by subtracting Z from + or - T depending 
on the sign of Z.) 
If the flag was not set by the initial 
check, the value Z is not altered. Accur- 


acy is 6+ significant decimal digits for all 
arguments. 


4.4 


Natural Log: 


COMMAND : 


FUNCTION: 


ERRORS ; 


ALTERED REGISTERS & FLAGS; 


METHOD: © 
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FLNE (code 34) 


The natural log of the contents of FAC 
replace FAC. 


If FAC. is negative, a flag (FNLNF) is set, 
FAC is forced positive, and the natural 


log taken. 


FAC, FIM, FXFLG, FNLNF (FPLNE+4) 


The quantity in FAC is 


z=x-° 2! where .5£x<€<1 and I is an 


integer. 


In [x - 24] 
In X + I 1n2 


ln Z 


The quantity 1n X is approximated by the 


polynomial. 


Se Qs . «4 aes 
we € 


In X=i1nA-Z(Y+ Y? 


which is a Taylor series evaluated at A 


where A = 


-A-X 

and Y = AX 

The product [I 1n 2] is added to ln X, and 
the sum is left in FAC. 


A = 0./70710678 
In A = 0.34657359 
In 2 = 0.69314718 


Accuracy is 6+ significant decimal digits 
except for .904$z£1.110. In the latter 


range, accuracy decreases as Z=?>1. 
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4.5 Exponential: 
COMMAND: -FEXP (code 35) 
FUNCTION: j; The exponential of the contents of FAC 


replace FAC. (FAC = eFAC) 


ERRORS: | If the result is going to be out of 
range, i.e. if FAC 88.722, a flag 
(FEXOF) is set. If FAC was negative, 
_ zero is. left in FAC. If it was positive, 


the largest positive number is left. 


ALTERED REGISTERS & FLAGS: | FAC, FIM, FDFLG, FXFLG, FEXOF (=FPEXP+1) 
METHOD: oO eX = 2X logo e 
25h FE oGE oF 


where I is the integer portion 
‘and F is the fractional portion of X log, e 


>F is computed by the continued 


fraction: 


A ai 
BtrF+C 


where 

A = -34.624680982 

B = -17.312340491 

C = 104.0684491 

D = 20.813689813 
logy e = 1.442695041 


Accuracy is 6+ significant decimal digits 
for |x|$10. ‘Accuracy decreases slowly as 
[x| becomes large until at |x| 88, the ac- 


curacy is 5+ significant decimal digits. 


4.6 


Square Root: 


COMMAND : 
FUNCTION: 


ERRORS : 


ALTERED REGISTERS & FLAGS: 


METHOD: 
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FSQT (code 36) 

The square root of |FAc| replaces FAC. 

If FAC is negative, it is forced posi- 

tive, and FSFLG (internal to the square 
root routine) is set non-zero. If FAC 


is positive, FSFLG is set to zero. 


FAC, FSFLG (=FPSQT + 6) 


After FAC is forced positive and FSFLG 


is determined, the exponent of the re- 
it is determined by dividing FACXP 

by two (by shifting right once) and 
adding 100g to preserve the excess 200g 
notation. If the original exponent was 
odd, the shifted FACXP is increased by 
one; otherwise, it is left alone. If 
the original exponent was even, FACHI 
and FACLO are shifted left once. Since 
the algorithm treats FACHI and FACLO as 
a 32 bit positive fraction with the 
‘binary point to the left of bit 15 of 
FACHI, the fact that the left shift will 
set the sign bit (bit 15) of FACHI does 


not matter. 


The algorithm then proceeds to determine 
a fourteen bit first approximation to 
the square root by a method based:on the 
fact that N* is the sum of the first N 
odd numbers. This method also leaves as 


a "remainder" the difference between the 


' square of the approximation and the original 
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number. This remainder and the initial 
approximation are then used for one 
-Newton-Raphson iteration which completes 
the square root using the single pre- 
cision divide entry (FSDVD) of the 
floating point package. 


. 


Accuracy is 6+ significant decimal 


digits for all input arguments. 


3.1 
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CHAPTER FIVE 


NON-INTERPRETIVE MODE USAGE 


Introduction: 


Certain sections of the floating point interpreter are directly 


{yp 
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ser without the need to supply commands. These sec- 
tions may be invoked by a JU SUBR instruction and, after the operation 
is completed, will return control to the instruction following the jump. 
In order to use these routines successfully, it is necessary to know that 
in addition to the pseudo-accumulator (FACHI, FACLO, and FACXP) there is 
a igeusovers” accumulator (FTMHI, FIMLO, and FTMXP) which is used to 
contain the floati ent of a Type II command during the execution 
of the operation (see 1.4). This temporary pseudo-accumulator, referred 
to as FIM, is loaded in the same manner as FAC (see FLDA instruction in 
2.2.1). If the user desires to access the routines deateisea in this sec- 


tion, he may need to load FIM in addition to FAC for those routines that 


operate on both accumulators. 


These sections will be described as subroutines since they are essen- 
tially used in this manner when accessed directly. When the floating in- 


terpreter resides in memory, all of these subroutines also lie in memory. 
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5.2 Subroutines: 
5.2.1 Double Precision Fixed Point Add 
NAME: FDAD 
CALLING SEQUENCE: JU ¥FDAD 
INPUT: | FACHI, FACLO; FIMHI, FIMLO; AO must be in 
ADD state. 
FUNCTION: 7 FACHI, FACLO and FTMHI, FTMLO are treated - 


as signed double precision numbers and 
added. The result of the addition ap- 
pears in FACHI, FACLO. FIMHI, FIMLO are 
left unchanged. 


If arithmetic overflow occurred (two 
numbers of like sign are added and the 
result has opposite sign), the link 
will be set to 1. If no arithmetic 
overflow occurred, the link will be 


zero. 


The AO is in the ADD state upon return. 


NOTES ; It is possible to generate the maximum 
negative number (FACHI = 100000g, FACLO = 
000000,), which is not considered a case 
of arithmetic overflow; and so the link 


will not be set. 
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5.2.2 Double Precision Fixed Point Multiply 


NAME: 
CALLING SEQUENCE: 


INPUT: 


FUNCTION: 


NOTES ; 


FDMPY 

JU FDMPY 

FACHI, FACLO; FIMHI, FIMLO 

AX must be set to the value in FTMHI 


AY must be set to the value in FTMLO 


The AO must be in the ADD state 


FACHI, FACLO and FTMHI, FIMLO are 
treated as signed double precision 


numbers and are multiplied. The high- 


_ order 30 bits of the 62 bit product 


are returned, right justified, in 
FACHI, FACLO. The value in FTMHI, 
FIMLO is unchanged. 


The AO is in the ADD state upon return. 


The 30 bit product is inaccurate in the 
right-most two bits. If FACHI, FACLO 
and FIMHI, FIMLO are each considered as 
a double precision fraction with its 
binary point immediately to the right 
of the sign, i.e. between bits 14 and 
15 of the high-order word, the binary 
point of the product will be shifted 
right once so that it is between bits 


13 and 14 of FACHI. 
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5.2.3 Double Precision Fixed Point Divide 


NAME: 


CALLING SEQUENCE: 


INPUT: 


FUNCTION: 


NOTES : 


FDDIV 


JU FDDIV 


- FACHI, FACLO; FTMHI, FTMLO 


AX must be set to the value in FIMHI © 
AY must be set to the value in FTMLO 
The AO must be in the ADD state 


FACHI, FACLO and FIMHI, FIMLO are 
treated as signed double precision 
numbers, and the former is divided 
by the latter. The quotient appears 
in FACHI, FACLO. The value in FTMHI, 
FTMLO has been destroyed. | 


The quotient will be 30 bits in FACHI, 
FACLO with the binary point displayed 
“one position to the right in the same 


way as explained in the note for FDMPY. 


The absolute magnitude of.:FTMHI, FIMLO. 
must have bit 14 of FTMHI set for the 
divide to take place... If this con- 
dition is not satisfied, divide check 


will occur. 


The AO is in the ADD state upon return. 


The rightmost three bits of the quotient 
are inaccurate. Divide check causes 
FACHI, FACLO to be set to a large double 
precision number of the sign which would 
result if the divide could take place 
(FACHI, FACLO = 077777, 177400 or: 100000, 
000400 for + and - respectively); also, 
FDFLG is set non-zero. A successful 


divide sets FDFLG to zero. 


5.2.4 Single Precision Divide 


NAME: 
CALLING SEQUENCE: 


INPUT: 


FUNCTION: 


This code may be 
eliminated if the 
remainder is to be 
disregarded. 


NOP 


FLOATING POINT MANUAL 
74-44-001-C 


FSDVD 
JU FSDVD 


AX = high order dividend | must be a posi- 
FLODV = low order dividenafttve 39 bit 
double preci- 
sion number (see 
below) 


AY = negative divisor 


The AO must be in the ADD state. 


‘This is an inner loop which, if used 
correctly, can be invoked to supply an 
unsigned single precision divide. The 
quotient is incomplete in the sense that 
it is right shifted and truncated upon 


return. 


To obtain a complete single precision 
unsigned divide, the following procedure 
may be used. First, load AX and the lo- 
cation FLODV with a valid two word posi- 
tive product (bits 14 and 15 of AX must 
be zero). - Then load. AY with the positive 
single precision divisor and twos comple- 
ment it. The following code will then 


perform the divide: 


FSDVD ; INCOMPLETE QUOTIENT IN TRP 
AO,L1,0 3GET LAST BIT OF QUOTIENT 
NOT LNK ; UPDATE 
AO, AX ;REMAINDER 

3IN AX 


TRP,L1,AY = ;TRUE QUOTIENT IN AY 
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Note that the incomplete quotient is in 
the TRP register on return from FSDVD. 
The AO is in the ADD state upon return. 


If either the link is set or AY (the 
final quotient) is negative following 
this code, divide check has beeiivreas 
This means that the high-order portion 
of twice the dividend was greater than 
or equal to the divisor, and the quotient 


is incorrect. 


NOTES : | No flag is set if divide check occurs. 


5.2.5 Floating Point Normalize 


NAME: 
CALLING SEQUENCE: 
INPUT: 


FUNCTION: 


or, 
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FNORM 
JU FNORM 
FACHI, FACLO, FACXP 


Same as FNOR command (see 2.2.3), in- 
cluding the setting of FAC and FXFLG 
should exponent overflow or underflow 


occur. 


The advantage of the accessibility of 
this routine lies mainly in the saving 
of time. For instance, to convert a 
gingle precision integer value to 

floating point, the following two 

methods could be used. (Assume the 
integer is in AX, and the floating 


equivalent is wanted in location X.) 


RM AX, FACHI 
7M FACLO 
MRI 217, AX 
RM AX, FACXP 
JU FNORM 

JU $SFI 
FSTA x 

FEXT 

RM AX, FACHI 
ZM FACLO 

MRI 217, AX 
RM AX, FACXP 
JU SSFI 
FNOR 

FSTA x 


FLOATING POINT MANUAL 
74-44-001-C 


Version 1) takes one more location in 


core and saves about 80 machine cycles. 


NOTE: The AO may not be in the ADD state upon 


return. 


5.2.6 Negation and Store 


NAME: 
CALLING SEQUENCE: 
INPUT: 


FUNCTION: 


NAME: 
CALLING SEQUENCE: 
INPUT: 


FUNCTION: 


NAME: 
CALLING SEQUENCE: 
INPUT: 


FUNCTION: 


NAME: 
CALLING SEQUENCE: 
INPUT: 


FUNCTION: 
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FACMP, FACMA - 
JU FACMP or JU FACMA 
FACHI, FACLO or AX, AY 


a) FACMP - replaces FACHI, FACLO with 
its two's complement. Result is 
also returned in AX, AY. 

b) FACMA - replaces FACHI, FACLO with 
the two's complement of the double 
precision number in AX, AY. Result 


is also returned in AX, AY. 
FTCMP, FICMA 
JU FTCMP or JU FTCMA 
FIMHI, FTMLO or AX, AY 


a) FTCMP - replaces FIMHI, FIMLO with 
its two's complement. Result is 
also returned in AX, AY. 
b) FTCMA - replaces FTMHI, FTMLO with 
the two's complement of the double 
precision number in AX, AY. Result 


is also returned in AX, AY. 


FASAX 


“JU FASAX 


AX, AY 


Stores AX into FACHI and AY into FACLO 


FTSAX 
JU FISAX 
AX, AY 


Stores AX into FTMHI and AY into FTMLO 
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5.2.7 Generate Zero or Largest Number 
NAME: FOFAC 
CALLING SEQUENCE: JU FOFAC 
INPUT: none 
FUNCTION: sets FACHI, FACLO and FACXP to zero 
also returns AX and AY = 0 
NAME: FCMAX 
CALLING SEQUENCE: JU FCMAX 
INPUT: _ FACHI 
FUNCTION: FACHI, FACLO, FACXP will be set to the 


maximum possible floating point number 
of the original sign of FACHI. 


1) If FACHI< 0, this routine sets 


FACHI = 100000 
-FACLO = 000400 
FACXP = 000377 


2) If FACHI20, this routine sets | 


FACHI = 077777 
FACLO = 177400 
000377 


FACXP 


Upon return, AX and AY will be equal to 
the value stored in FACHI and FACLO re- 
spectively. . 
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5.2.8 Floating Arithmetic Right Shift 


NAME: 
CALLING SEQUENCE: 
INPUT: 


FUNCTION: 


NOTES: 


FARSN 
JU FARSN 
AX, AY, FARSC 


This routine arithmetically right shifts 
the double precision number in AX, AY 
by the number of places indicated by 
-FARSC. 


FARSC must be set to a negative count 
before calling FARSN. 


5. 


3 
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5.2.9 Other Notes on Non-Interpretive Usage 


1) The pseudo-index is kept in location FINDX and may be set by the 
user without using an FLDX command (see 2.2.4) by simply storing 
the desired value via a RM R,FINDX where R is a register con- 


taining the index value. This, as with FNORM, is a time saver. 


2) The two flags, FXFLG and FDFLG, are in locations defined by their 
names, and can be checked (or cleared) in non-interpretive mode 
to save time. 

3) The usage of the locations FTBLE, FARGD, FETCH, and FMASK which 


are entry points to $SFI is described in 5.3. 


User Generated Extended Functions: 


If the user desires to add functions of his own to the extended package, 


the procedure is quite easy as outlined below. 


The extended package as delivered uses command codes 00-36, inclusive 
and 101, through 110, inclusive. There are available codes of 37g-77g inclu- 


sive which the user may assign to his own functions. 


User functions may be of two types - invoked by one word commands or 
invoked by two word commands where ie -sacena word is an argument address 
or value. le deferred mode addressing is desired as an option for the same 
function, it must be accomplished by user code. Setting bit 6 of the command 
code to attempt deferred addressing will cause the ploseine iutesseares to 


take the error halt. 


Suppose the command name used to invoke the function is to be FFCN 
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assigned to code 379. Assume further that the entry point to the function 


is to be FPCN. 


Step 1) 


Step 2) 


Step 3) 


Step 4) 


Using the Source Text Editor, substitute the statement WRD FPCN 
to the Command Table (SSFIC Sonne - see operating instructions) 
for the statement WRD FPUNT ;37 which is on the supplied tape. 
The user code which accomplishes the function must have the 
following statement at the beginning: 
| ENTRY FPCN 
where FPCN is the location at which the user function 
begins execution. 
The last instruction executed by the user function must re- 
turn control to FGET, usually via a JU FGET. Remember that 
when the user function is invoked by a command, the interpreter 
passes control to the user function. The JU FGET returns control 
to the interpreter. 
If the function the user is generating needs the floating point 
-apanaire supplied by the interpreter, the user function may 
call the interpreter followed by a list of commands to accomplish 
eh task subject to the roltowine restrictions: 
a) The command name corresponding to the function it- 
self ( in this case, FFCN) may not be used. 
b) Commands which cause the interpreter to be called re- 
cursively may be used so long as care is taken not to 
exceed seven levels of recursion in total (see 4.1) 
(remember that the function being coded is at least 
at level 1 dicing its execution, and if it calls the 
. interpreter, all commands in the list are'at least at 
level 2). 


c) No function invoked by a command may have in its code 
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a call to the interpreter whose command string con- 
tains the command name corresponding to the function 
itself. This is an indirect violation of restriction 


a) above. 


Step 5) Assemble the function and the new Command Table and load these 


objects along with the rest of the system. 


Notes: If the function being generated is invoked by a two word com- 
mand whose second word is an argument, one and only one of the follow- 


ing steps must occur during its execution. 


a) JU FARGD 
This fetches the contents of the location following the command into 
register AX. 
b) JU FETCH 
This calls FARGD and uses the contents of the location following the 
command as an address - fetch a floating point argument which is 
placed in FIM. Also, AX and AY will be set to the value in FTMHI 
and FTMLO voasecrively upon return. | 
c) 2M FMASK 

JU FETCH 
This causes deferred farcidne of a floating point argument. The con- 
tents of the doéation following the command is used as an address of 
another location which is incremented twice to form the addresses of 


the floating argument which is loaded into FIM and AX, AY as in b). 


Examples: 


1) FCSX is to be the command name, 1 word, code 379, When in- 
voked it is to take the COSINE of the SINE of the value in FAC. Assume 
Step 1 has been accomplished by adding the statement WRD FCS to a Command 
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Table tape which already includes the SIN and COSINE routines. This 


function may be accomplished by the following code; 


ENTRY FCS 
FSIN = 31 
FCOS = 32 
FEXT = @ 
FCS: JU S$SFL : ;enter floating interpreter 
FSIN | . 3sin of FAC 
FCOS 3cos of FAC 
FEXT 3;exit interpreter 
JU FGET s;return to interpreter 
END 


When this and the new Command Table are assembled and loaded with 
SSFI and the SINE, COSINE routine, the user may now call the routine 
in the floating interpretive mode as follows: 

FCSX = 37 


JU $SFI 


2) FMCS is to be the command name, 2 words, assigned to code 40... 
When invoked, it is to take the SIN of the COSINE of the value in FAC 
and set the sign of the result to the sign of the floating point argument 
whose address is the second word of the command. Step 1 requires’ the 


new command entry (say FMC) to be added to a Command Table tape which 


includes the SIN and COSINE. This function could be coded as follows: 


ENTRY FMC 

FCOS = 32 

FSIN = 31 

FABS = 14 

FEXT = 9g 

FMC: JU FETCH 
RMI AX, 0 
JU $SFI 
FCOS 
FSIN 
FABS 
FEXT 


MR FMC + 3,AX 


JC AX, GEZ, FGET 


JU FACMP 


JU FGET 


END 


5-16 


3fetch arg to AX,AY 

3;save MSH arg (sign of arg) 
- 3enter Hodting interpreter 

scos of FAC 

ssin FAC 

sabs value of FAC 

sauit floating interpreter 

3;get sign of arg 

3;plus, exit 

3;minus, comp FAC 


3;return to interpreter 


_ When this and the new Command Table are loaded with S$SFI, and 


the SINE, COSINE routine, it may be invoked by another routine via 


_FMCS = 40 
JU SSFI 
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3) FMCSD is to be the command which does the same thing as 
FMCS, only using deferred mode addressing for the argument. FMCSD must 


be assigned a different code - say 41, in the routine that invokes it. 


8 
Both FMCSD and FMCS may be coded in the same routine as follows, assuming 


their corresponding entry names have been added to the Command Table Tape. 


ENTRY FMCD,FMC 


FCOS = 32 
“FSIN = 31 

FABS = 14 

FEXT = @ 


FMCD:  ZM FMASK 
FMC: JU FETCH 
RMI AX, 0 
JU $SFI 
FCOS 
FSIN 
FABS 
FEXT 
MR EMC + 3,AX 
JC AX, GEZ, FGET 
JU FACMP 
JU FGET 


END 


6.1 
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CHAPTER 6 


OPERATING INSTRUCTIONS AND SYSTEM GENERATION 


Using the Package as Supplied: 

An equate tape labeled $FCQ is supplied for the package as delivered. 
This tape is a source tape containing the equates for all the floating 
point commands. it is intended to be copied via is Source Text Editor (%STE) 
onto any ieee written source tape which upes the floating point system in 
order to define the commands. For convenience, the user may wrested 
these definitions with an 'NLIST' statement and follow them with an 'LIST' 
souSieat to avoid having the lengthy listing of these equates. Of ngiiee. 
commands which ee not used in the particular program may be edited out 
of the source as well to shorten assembly time. A commented listing of 
this tape is in Appendix B. The supplied tape is not commented. 

Also supplied is a source tape labeled S$SFIC which consists of a 
table of addresses of entry points in SSFI corresponding to each 


mm 1 A oo 
mt command. The package as de 


has two object versions 
of this tape--one with the basic commands only (labeled also SSFIC) and. 
one with the basic commands and all of the extended functions as well 
(labeled $SFEC-extended). A listing of the basic $SFIC tape is - 
in Appendix C. | 

The basic steps fox using SSFI as supplied are as follows: 

1. Using 4STE, construct a source tape estonia et the user 

program and command definitions (which can be read in from $FCQ). 


Note that the definitions must come somewhere after any ENTRY 


statements in the user program. 
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2. Assemble the user program using ZRAS 

3. Load the user program, the version of $SFIC desired, then the 
other components of the floating point system which may be done 
via a library load using “4LLH or via the individual objects 
using either ZRLH or 4ZLLH. 


4. Run it! 


1. Whenever any component of the floating point system is to be 
used, some version of $SFIC must be egies 
2. It is good practice to initialize $SFI when starting up or 
restarting a program by storing FLIST-1 into FPUSH via, e.g. 
MRI FLIST-1,AX | 
RM AX,FPUSH 
This resets the push-down list which may have been left 
"hanging" by stopping the program in the middle of a floating 


point operation. 


6.2 User Generated Systems 


If the user desires a configuration of the floating point system 
other than that supplied he must edit and assemble the $SFIC tape supplied 
with the package (see also Chapter 5). 

Every command wel in an interpretive string following a JU $SFI 
must have a corresponding entry in the Command Table (SSFIC) loaded with 
SSFI. This entry defines the address to which the interpreter is to 
pass control in order to perform the command. It may be an address within 
SSFI, or in one of the extended functions, or in a user written Seeeand 


function. All unused commands go to the entry point in $SFI labeled 
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'FPUNT'. The source tape for S$SFIC supplies the appropriate labels for 
all the basic commands at the proper place in the table (code n is the a 
entry - see listing in Appendix C). 

The user need only change the 'FPUNT' at the appropriate entry in 
SSFIC to the desired name (which must be an entry point in some 


program), reassemble the tape and load the resulting object along with 


the rest of the system. 
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7-1 
Model 40 Floating Point 
Conversion of 71-44-001-C (Model 30 Manual) 


This package is upward compatible with floating point software 
written using the Model 30 floating point package. The only differ- 
ences are 1) the Model 40 floating point is faster and uses less 
space, 2) FAC, and FTM occupy registers 30-35 and 3) the usage of 


some of the subroutines in non-interpretive mode is slightly different. 


Any changes in going from Model 30 to Model 40 floating point 
are described in this document by referring to changes that should 
go into the Floating Point Manual if the Model 40 version is being 


used. 


Pg. 1-7 last 6 lines, change to: 


registers in the interpreter and is used to contain the left-hand 
argument of a binary floating point command as well as the results © 


of any floating point command. It is organized as follows: 


reg. name 
35 FACHI = contains. high order mantissa and sign of 
value in FAC . . 
34 FACLO = contains low order mantissa of value in FAC 
33 FACXP - contains excess 200. exponent of value in FAC 


Pg. 1-8 first three sentences, change to: 


ii) FIM - temporary pseudo- accumulator. This consists of three 
registers analogous to FAC. They are named FIMHI (reg. 32), 
FTMLO (reg. 31), and FTMXP (reg. 30). 
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Pg. 3-2 second line from top, change to: 
NAME: @SFC4 
Pg. 3-3 seventh line from botton, ee to: 
LENGTH: 26 3g (17910) 
Pg. 3-5 second line from top, change to: 
NAME: @SCF4 
Pg. 3-7 second line from top, change to: 
LENGTH: . 3675 (24749) 


Pg. 3-7 last paragraph, change all references to @SFC to @SFC4, @SCF to 


@SCF4 and @FXC to @FXC4. 
Pg. 3-7 first line, change reference to @SFC to @SFC4. 


Pg. 3-7 fifth line from bottom, @FXC4 occupies a total of 175g (125) 9) 


locations. 
Pg. 3-10, change page to read: 


3.7 Left Shift FAC: 


NAME: | @LSHF 

SUBROUTINES CALLED: none 

ALTERED REGISTERS & FLAGS: _ FTMLO,FTMXP 

CALLING SEQUENCE: | Load FTMXP with negative shift count. 
_ JU @LSHF 


return 
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ARGUMENTS ; FIMXP (reg. 30) contains minus the 
number of places to left shift FACHI,FACLO 
(regs. 35 and 34). 


FUNCTION: Performs double precision left shift 
. of FACHI,FACLO. On return, the shifted 
result is in AX(MSH),AY(LSH). Any 
carry out of MSH is found in FTMLO. 


ERRORS : None detected 
NOTES: @LSHF = @FCST+161, 
LENGTH: | / 14g (12,9) locations 


Pg. 3-11 fourth line from top, change to: 
ALTERED REGISTERS & FLAGS: FAC , FIM 


Pg. 3-11 last line, change to: 


LENGTH: 31g (2549) 


Pg. 5-3 delete 5th and 6th lines from top (i.e. AX and AY do not need 


to be set to FTMHI,FTMLO). 
Pg. 5-4 same as Pg. 5-3 


Pg. 5-5 delete this page entirely, single-precision divide is supplied 


on the extended arithmetic operator (see EIR Devices Manual). 


Pg. 5-6 same as Pg. 5-5 


Floating Point Manual 
74-44-001-C_ 


Pg. 5~7 change line 17 through last line to: 


1) RR AX, FACHI 


ZR —~*FACLO 
MRI 217,FACXP 
JU ——«~FNORM 
JU SSFI 
FSTA X 
FEXT 

or, 

2) RR AX,FACHI 
ZR —-FACLO 
MRI 217,FACXP 
JU $SFI 
FNOR 
FSTA X 
FEXT 


Pg. 5-8, change "80 machine cycles" to "27 machine cycles". 


Pg. 5-9 delete all references to "Result is also returned in AX,AY" 
Pg. 5-9 delete last eight lines, i.e. FASAX and FISAX do not exist. 
Pg. 5+10 fourth line from top, change to: 

sets FACHI,FACLO,FACXP to zero. No Sues registers are affected. 
Pg. 5-10 delete last three lines, i.e. AX,AY are not affected. 


Pg. 5-11 delete this page, arithmetic right shift is supplied on the 


extended arithmetic operator (see EIR Devices Manual). 


Pg. 5-14 last sentence of paragraph b), change to: 


AX and AY are destroyed. — . me 
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Pg. 5-14 last line of paragraph c), change to: 
the floating point argument which is loaded into FIM as in b). 
Pg. 5-16 after line saying FEXT = 0, faecee 
FIMHI = 32 
Pg. 5-16 change line beginning with RMI AX,O to say: 
RMI FIMHI,@ ;save MSH arg (sign of arg) 


Pg. 5-17 same changes as on pg. 5-16 


Appendix B - replace with attached Appendix B | 
Appendix F pg. 3 paragraph 1) b) c) and d), change to: 
b) FSPLT is initialized to 06 0010 12 
c) FSPLT+1 ia tuapidia gaa to 377 


d) FPSTA+3 is initialized to FARGD 
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APPENDIX A 


Command Summary — Basic 


Definitions: 
Y¥ ~ address of floating operand 
~ address of location containing address - 1 of floating operand 
ew address of another floating command 


ew address of index value 


[D] optional selection of deferred addressing 
I ~ index value of source or destination at address Y 


A “~pseudo-accumulator (FAC) 


F w floating value of source or destination at effective address formed 


from Y. 

Code (octal) Basic Commands | Operation Flags. — | Registers 
00 FEXT exit none '~ none 
01 [101] FLDA [D] Y FA none FAC, FIM 

02 [102] FSTA [D] Y A—>F . FXFLG | FAC 
03 [103] FADD [D] Y A+F—>A FXFLG FAC, FIM 
04 [104] FSUB [D] Y A-F—>A | | FXFLG FAC, FTM 
05 [105] FMPY [D] Y A*F >A -FXFLG FAC, FTM 
06 [106] FDIV [D] Y A/F—>A _ FXFLG, FDFLG FAC, FTM 
07 [107] FADM [D] Y A+|F|>A FXFLG FAC, FTM 
10 [110] FSBM [D] Y A-|F]>A _ -FXFLG FAC, FTM 
14  FABS Jala none FAC 
15 FASQ A2 A FXFLG FAC, FIM 
16 FNOR normalized A->A FXFLG FAC 
17. FNEG . ~A—DA | none FAC 
20 FJMP Y jump to Y none none 
21 FJAP Y jump to Y if AZO | none none 


822 FJAZ Y jump toYif A=0 none none 


Code (octal) 


23 
24 
25 
26 
27 
30 


Code (octal) 


(*) 


(+) 


(1) 


31 
32 
33 
34 
35 
36 


If 
be 


If 
be 


If 
be 
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Basic Commands Operation : Flags Registers 
FJAN Y jump to Y if ACO none none 
FJEV Y jump to Y if FXFLG se: 0 FXFLG (set to zero) none 
FJDC Y jump to Y if FDFLG set 0 FDFLG (set to zero) none 
FJIX Y X+1-—>X, jump to Yif X 0 none FINDX 
FLDX Y I->X 7 none FINDX 
FSTX Y X-3I1 none : none 
Command Summary - Extended Functions 
Extended Command Operation Flags Registers 
FSIN SIN (FAC) —>FAC FXFLG ' FAC, FIM 
FCOS COS (FAC) —>FAC . FXFLG _ FAC,FIM 
FATN TAN"! (FAC) —>FAC FXFLG,FDFLG FAC, FTM 
k 
FLNE LOG, (|FAC|)—>FAC rxric“*) FAC, FTM 
FEXP eFAC_> FAC FXFLG, FDFLG (1) FAC, FIM 
FSQT ¥ | FAc|—>Fac none (+) FAC 


input argument is 
set non-zero (see 
input argument is 
set non-zero (see 
input argument is 


set non~-zero (see 


negative, FNLNF internal to the FPLNE routine will 
write-up). 


negative, FSFLG internal to the FPSQT routine will 


write-up). 


too large, FEXOF internal to the FPEXP routine will 


write-up). 


APPENDIX B 
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xB 91 3SFCO - COMMENTED 

__ 082 ee Pc 2) Pe Adee jean ee ae 
@03 ~ - $GRI999/32 COMMAND EQUATE TAPE. ” 
eo4 i (te ABER FEXT=H@ LULU EXIT COMMAND 
@a5 g ' 9g9g@@e1 FLOA=1 s LOAD FAC COMMAND | 
O06— 6 866161 FLDOAD=191 — = EGAD FAC DEFERRED 
807 g " @@G082 FSTA=2 . 3. STORE FAC. 

688 ss BW = OR1B2 FSTAD=122 ss STORE FAC CEFERREC | 
ea9 g - gggee3 FADC=2z -$ FLOATING ALO . 
018 8 «68193 FADrDH=te3 3 FLOATING ANQ DEFERRED 
G11 @- ° gg9@@4 FSUE=4 3 FLOATING SUBTRACT 

_.@12 8 @8¢@184 FSUED=124 §s FLOATING SUBc DEFERRER 
613 g ' 999005 FMPY=5 2 FLOATING MULTIPLY | 

_ 014 ss GIES FMPYO=1¢@5 - a FLOATING MULTo DEFERRED 
815 Q ’ @ggee6 FOIV=6 3 FLOATING DIVIDE 

816 _# _ 88186 FCI VD=126 it ed 3 FLOATING DIVIDE CEFERRED 
017 g ~~ @98887 FADK=7 3 FLOATING ACO MAGNITUCE 

918  — -@ —  eaete7 FADRD=1@7 = _ § FLING AOD MAG TEFERREN 
819 g @ge01g FSBK=1¢ 3 FLOATING SUBe MACNITURE | 

— 626  —@ = 68E11B FSBYO=219 =F TNG SUP MAG CEFERREN 
G21 g go8811 FTRA=11 3 TRACE ON —_ 

822  _—iB @ggai2 FIRF=12 ss TRACE OFF 
G23 g ~ 9$9ee13 FSET=13 8 : SET ERROR TRAP 
g24 Bw ET FABS=18 5 ABSOLUTE See Oe cy caeezeses 
G25 g @g¢gi5 FAS@=15 3. SQUARE 
G26 sis REM E FNOR=16 0 0 © OU 3 NORMALIZE ae 
- @27 @ @@G017 FNEG=17 3 NEGATE 

628 @  _' PREB2G FYMP=ee 3 UNC ONOI TIONAL JUMP 
g29 g ' geee@et FIAFH=21 ‘3 JUMP IF FAC > OR = g 

_ 856 OBB AA2 FYAZ=22 = MP OI FAT OF OO UU 

, @31 e - @9@023 FJAK=23 3 SUMP IF FAS < 2 

(892 EBAY FVEVE24 nt SUMP IFC XELE NOT b - 
@33 q ggee2s5 Fyoc=z5 3 JUMP IF FOFLE ‘OT G¢ © 

O39 8 * COEB26 FIJIX=26 __.3 BUMP INCEXs JMP IF NOT ¢ 
835 g * @60@27 FLDX=27 3 LOAD PSEUDO-INDEX 
G56 8 7 BO8ES FSTX=38 3: STORE PSEUVCO-INDEX 
037 g ' 98031 FSIN=231 3 SINE 

938 @ ° g@@g32 FCOs=32 = COSINE a 
@39 g " $88833 FATN=23_ 3 ARC TANGENT. 

_ B4e _ 6 ogee t4 FENE=34 3 NATURAL LOGAFITHM ———__ 
241 ) - 988835 FEXP=35 3 EXPONENTIAL 
842 6 ° eoee3se FSQT=36 = te SQUARE ROOT 

% 
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SSFIC 
x01 sSSFIC. 
__ 682, 7 |B od Sood 0, SE Ee ee ee 
893 sPASIC COMMANDO TA®8LE 
_. O84 a ENTRY. ae 12s ee etter cn as toca: Att, 
805 1. 177777 FTBLE=o-1 
_U 906 @OG0e @ eeoreG . ™[‘9“wWRD FFLDA Ft UL. 
-U @a7 @enei @ Gaaces WRO FPSTA _ 22 
OGG) COCE2.. C900 Oe eo i WR SE ORD nr Oa ose a ett 
ueago ggeez 2 aggeeg WROD FFSU3 74 
_U G10 @9@084 @ @ageeg WROD FPMPY $5 Bidets Sah ea latte sen eee Seon 
U G11 eerss @ Baceed - WROD FPDIV “4 : 
_U G12 O0F06 G_aenera _WRO  FPADM =37. ee ee oe 
U 813 @oFe7 & BeogeD WRO FPSEM 3108 
_U@14 O@R1e @ Begeee~ = RO UF PUNT) = 544. FRTRN alg ieee 
U@giS OB8C11 @ BHneoe WROD FPUNT 312 FPTRE 
_U G16 S812 8 BOR 8hB = WO PN ae OI OM ent em et ted 
U@17 e@geiz @ BgeAeD WROD FPABS 314 | 
_U 618 @GC14.e BARBED _ WROD. FPASO —-398 eae eee 
U 819 eOcis 2 HaneeD WRD FFNCR 316 . 
UU G26 @6FI6 6 EGGGCB —  WRO  FPNEG 5 
U@21 O8F17 2 @adbe8 “WROD FPJHP 320 eee 
_U @22 @7f2e 8 FAL8E WARD ROA Bo oS OO ota a oe Eh 
U G23 @g@21 @ Beaeera WRO FFJAZ 322 
_U@24 e922 @ @oeeee  ———hmhmh™m™m™hLCUWROUU UF PAN 0 G28 
u@25 @af23 @ €3g088. ‘WRO FPJEV 324 . —_— 
_U 626 @eF24 2 850888 see PW RD PIO onc = OE rs ee rE ey 
U@27 @@825 2 299822 WRO FPJIX 326 
_U G28 BHF26 FF OBABER WRD FFLOX 327 Pia feeder oe te ee tt 
U 829 e@af27 6 BaadeRe WRO FPSTX 33e | 
_U 839 @ee32e 6 Aooeeo _WRO  FPUNT  ° 331 FPSIN 
U 031 g0¢31 @ ggoeee “WROD FPUNT 332 FeCoSs 
_U @32 09032 6 egeoes = CUR PUNT U5 33 FRATN ser asettes eee eae 
U 833 gef32 @ BAGGeE WRO FPUNT ~~ 734 FPLNE 
_U 634 68034 8 8988 WRO FPUNT ~~h3e ee eee ee ee ee 
Uue35 Gers @ Baneea WRO  FFUNT 736 FPSOT 
U 836 0736 & @A008R _  WRO  FPUNT 357 
837 NLIST. 240-77 SAME AS 37° 
e768 Ss eee ee Oa ce a ee Meet ae ences a 
U 871 @0877 8 Beecee WRD FPUNT 31@0 CALWAYS ILLEGAL) 
U 872 @8F82 & Ean Bes _ WROD OFPLDA 3102 (DEFERREO) | Soha wise 
U873 GeTel @ eseRes WRD FPSTA 3102 (CEFERRED) 
_U 274 geTee 6 BeBe WROD FPACD = 5103 (DEFERRED) © oe ae 
Uu@7S @eTes @ geagego WRO FFSUB 31¢4 (CEFERREO) 
_Ue76 Bares ¢ eaoete WROD OF PMPY- 34185 (DEFERRED) ~ ; 
U 877 eaTes @ Peoees WRO FFOIV 3126 (DEFERREO) —_— 
U 878 @areé 9 @oobee =U UF PADMA? CP EFERREOD © ©=©—© UU 
U@79 OaTe7 o OBR8eB wRO  FPSEM 3419 CODEFERRED)D 
_ @88 (1 °~8680110 END espa S ; ssulndhe Steet a pussies 
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APPENDIX D 


“FCG — Floating Point Constant Generator 


ZECG - Floating Point Constant Generator 


“FCG is a utility routine which is provided should the user wish to 
use floating point constants whose octal equivalences are unknown. With 
ZFCG, the user can type in a floating point decimal number and receive 


the equivalent internal floating point representation. 


#FCG occupies locations 0-2660 inclusive. 


Operating Instructions 


1. Load ZFCG by means of 4ALH. 
2. Turn teletype on-line. 

3. Set Sc=0. 

4. Press START. 


5. %FCG responds with a carriage return, line feed. 


ers terminated with an equal 
sign (=). The character string should be in the format described 
in section 3.3, where the delimiter is an = rather than a carriage 
return. Typing a back arrow at any point causes the first previous 
non-back arrow to be ignored. Typing rubout at any point causes 
“FCG to type a carriage return, line feed, question mark (?) and 
returns to step 5. Typing more than 13 characters before typing 


an equal sign has the same effect as typing rubout. 


7. When the user terminates the character string with the equal 
sign, 4FCG responds by typing the 2 word floating point equivalent 


(in octal) and returns to step 5. 


8. If the character string did not conform to the format specified in 
section 3.3, the message SCAN ERROR is typed and ZFCG returns to 
Step 5. 
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If the character string resulted in a number whose magnitude was 
outside the range 1.469369E-39 to 1.701411E+38 or if the character 
string contained more than 1059 mantissa digits, the message 


ANSWER OUT OF RANGE is typed and “FCG returns to step 5. 


FLOATING POINT MANUAL 
74-44-001-C 


APPENDIX E 


FPSET - Error Trap Routine 


Introduction: 


A series of floating point calculations on an unknown data base can 


generate errors, such as results which exceed the capacity of the machine 


or dividing by 0, etc. In order to facilitate the localization of the oc- 


currence of such errors, FPSET is provided and serves as an error trap 


routine. 


interrupt 


When an error specified by the user is detected, FPSET will 


the operation of the interpreter and give control to a user 


supplied error routine. FPSET supplies the user error routine with the 


following 


culations 


AX = 


AY = 


TRP = 


information, allowing the user to pinpoint the step in his cal- 


at which the error occurred: 


recursion level at which the command at the address in AY was 


executed. 


address of command executed immediately previous to detecting 


wee eer See 


error number indicating which flag in the user supplied error 
list was set non-zero. (TRP = position of address of error 


flag in user supplied table (see usage)). 


The recursive capability of the interpreter somewhat complicates cer- 


tain usages of FPSET and, for this reason, three modes of operation of 


FPSET are 


allowed: "On", "Off", and "Partially On". The latter mode 


allows FPSET to keep track of commands and recursion levels without ex- 


amining any error flags. The utility of this mode is described in the ex- 


amples at 


the end of this appendix. 
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Usage: 


FPSET is controlled by the use of the FSET (code 13g) command in the se- 
quence of floating commands being executed by the interpreter. There are three 


modes of operation of FPSET: 1) ON, 2) OFF, and 3) PARTIALLY ON. 
1) To turn FPSET ON, the command is 


FSET A 


where A is the address of a table with the following format: 


A: WRD ERR ;USER ERROR ROUTINE ENTRY 
WRD FLG1 :ADDRESSES OF SYSTEM 
WRD FLG2 ;FLAGS TO BE CHECKED... 
WRD = ;END OF TABLE SIGNAL 


When this FSET command is encountered with a positive non-zero value for 
A, FPSET will examine the state of every flag listed in the table at address A 
after every command executed by the interpreter from the point of the FSET A 
command onward. Whenever a flag whose address is cathe user list has become 
non-zero (indicating an error), FPSET zeros the flag, and then gives control 
to the user error routine at the address specified in thefts: word of the 
table at A. The information supplied to the user error routine is as stated 


in tlh introduction. 


The uSer error routine may use S$SFI, but any additional errors which might 
occur will not be checked by FPSET, and any FSET commands in the command se- 
quence will be ignored. If the user wishes to call $SFI in his error routine, 
it is up to him to save and restore the states of the interpreter system flags 


and -the floating accumulator (FAC) before and after such S$SFI use. 
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2) To turn FPSET "off", the command is 


FSET 0 
This completely disconnects FPSET from the interpreter. 
3) To turn FPSET "partially on", the command is 


FSET N 


where N is any negative number. 


In this mode, FPSET will keep track of the current command address and 
recursion level but will not examine any flags. If FPSET is at some later 
time turned "on" and discovers a flag set non-zero, the level and the conm- 


mand address will be correct within certain limitations (see Notes). 


This mode is useful when the user does not wish to enter his error 
routine for errors which occur during execution of a section of his command 
Besreneks For example, the command sequence may contain an FJEV or similar 
test for conditions known to the user, and with FPSET "on", these conditions 
could be altered (eieueda) if the corresponding flags are in the user error 
list at A. In this case, an FSET N (where NCO), issued before entering this 
section, and an FSET A (A>0O, A=address of eabie). issued after completion of 


this section will allow FPSET to retain the necessary information should 


other errors occur and allow the section itself to operate properly. 


User Error Routine: 


Basically, the user error routine may do anything. However, the user must 
remember that his error routine is considered as an extension of the inter- 
preter. At the completion of the error routine, control should be given back 


to the interpreter via a JU FGET or similar return. 


Register AX is used as an argument upon return (via JU FGET) and can turn 
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FPSET "on", "off", or "partially on" according to AX>0, AX=0, or AXx¢0 
respectively. If AX>0, it must be the address of an error table as de- 


scribed above (it need not necessarily be the same one as before). 


Notes: 


1) It is generally the case that an error flag is set by the command 
immediately preceding the detéction of the flag non-zero. In the. 
case where FPSET was not "on" at that moment, but was turned on 
later and found the flag non-zero, FPSET will report that it does 
not know which command caused the error by giving an AY value 
which points to the FSET "on" command or by AY = -l. The dif- 


ference in meaning of the two AY values is as follows: 


a) AY = address of FSET "on" command if the flag was non-zero 


at the time the FSET "on" command was encountered. 


b) AY = -1 if all flags were zero when the FSET "on" was en- 
countered, but a flag was set non-zero later at a point 
which indicated that the command which caused the error 
was at a recursion level one less than the level at which 
the error was detected. This situation is avoided if 


FPSET is partially on throughout until it is turned on. 


2) If the user wishes to restart his entire program or in any other way 
wishes to use the interpreter without reloading it, he should make 
sure that FGET+1 is initialized to FARGD and FPUSH is initialized 
to FLIST-1. | 


3) A FEXT command does not affect the mode of operation of FPSET, i.e. 
upon re-entering $SFI, FPSET will operate as per the last FSET com- 


mand encountered before the FEXT. 


- Operating Instructions: 


1) Edit the Command Table ($SFIC) source to include WRD FPSET in place 
| of WRD FPUNT;13 which is on the tape as supplied, and assemble it. 
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2. Load FPSET and the new Command Table with the system. 


3. Start user program which has FSET commands in the usual way. 


Examples 


Ly Typical usage of FSET "on" and "off" 


User Main Code 


ENTRY A 


JU SSFI 


END 


ERR 
FXFLG 
FDFLG 
~1 


3Turn FPSET on 


eauses divide check, FPSET gives contro 
This returns control to interpreter 
to execute next command _ 


Errors in here 
are not detected 
by FPSET 


sAddress of user error routine 
sAddress of exp over/underflow flag 
sAddress of divide check flag 

;End of table 


} User Error Routine 


ENTRY ERR 


(TRP = 000002 
indicating second 
flag in table at A 


was set) 


MRI A,AX ;Turn FPSET back on 
JU FGET 
END 


0-100-77-72 
TVONVW INIOd ONILVOTA 


Example 


2. Use of FSET "Partially On" 


adahtententene dL kemmntedini tinea enna ddednenheene nameiterennannmeiiinget eam 


User Main Code User Coded Extended Function 


REN RR bet eames sett 


JU $SFI FPUFN: JU SSFI 


FSET -1 ;turn FSET partially on FSET A ;Turn FPSET on 
(Detects FDFLG error 
immediately and traps 


to user error routine) 
FJEV ;Reason for FSET partially on | 


FDIV s;Error (divide check) occurs here Das sUser supplied table 


;User defined function— 


In this example, because FPSET was only partially on when the error actually occurred, the 
error trap will indicate that the erring command was FSET. It will, however, indicate that the 
divide check flag was on (TRP = 000001 since FDFLG is first in table A) and that the error oc- 


curred in recursion level 2 since FPSET was turned on in the user function. 


0-T00-77-7Z 
TVANVW INIOd ONILVOTA 


Examples 


3. Another usage of FPSET "Partially On" 


User Main Code 


JU SSFI 


;Turn FPSET partially on 


;User defined function 


In this example, FPSET indicates an error on 


recursion level 1, and that the command 

causing tue error was FUFN (i.e. AY will have 

address of FUFN command). This is as it should 

be since the arguments given to the user function at 
the FUFN caused the function to set an error con- 
dition. _ | 

Note: ae the FSET -1 had not been issued in the Main 
Code, FPSET would have indicated the AY= -1 condition. 
It would, however, indicate the correct flag and the 


correct level (i.e. level 1). 


FPUFN: 
3; WRD 
WRD 
WRD 
WRD 


User Coded Extended Function 


JU S$SFI 
—_ A ;Turn FPSET on 
: (no errors yet) 
-— | 
Tapue argument cause 


user coded function 


ZM P1,FUFLG to set error flag 


JU SSFI error is detected here 
by FPSET 

ERR 
FXFLG 

FDFLG 


=I 


9-T00-74-¥HZ 
TVMNVA INIOd ONILVOTA 
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The floating point trace is a debugging aid which prints 


the value of pertinent variables in $SFI and the user's program 


before the execution of each floating point pseudo command. The 


variables printed are: 


current level of S$SFI- 


address of the instruction to be executed 


code for the instruction to be executed 
INDX (floating point index) 

FDFLG (divide check flag) 

FXFLG (exponent sutton) indeeeine flag) 
FAC (floating point pseudo accumulator) 
effective address of argument, if any 


value of argument, if any 


The user specifies which of the variables are to be printed 


and the maximum level for which he wants the information printed. 


This is done through the floating point pseudo commands FTRN 


and FTRF. 


To turn the trace on and specify which of the nine variables 


are to be printed, the pseudo command is: 


FTRN X. 


where bits 0-8 of the integer X correspond to the variables A through 


I above. 


For each bit that is on (=1) the corresponding variable 
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will be printed before the execution of each floating point command. 
The FTRN command sets maximum recursion level to be traced to 7, 

turns the trace on and prints a heading (A-I), telling which variables 
are to be printed. The "trace on" causes the specified variables to 


be printed on one line before each instruction is executed. 


The printed value of variables H (argument effective address) 
and I (argument) need further explanation. If the command to be 
executed has no argument, columns H and I will be blank. If the 
argument is floating point, I is printed as a floating point deci- 
mal number, otherwise it is octal. If the command is FTRN, FTRF. or 
a JUMP command, then H is the saatesayt of the command and I is the 
contents of H. In the case of the commands FLDX Y, or FSTX Y, H is 
the address Y and I is the contents of Y. For user coded extended 


functions, columns H and I will be blank. 


To turn the trace off beyond a certain level, the pseudo command 


is: 


FTRF X 
where the integer value X specifies the maximum recursion level (1-7) 
for which the specified variables are to be printed. If X is less 
than or equal to 0, the trace is disabled and no variables will be 


printed from then on until another FTRN X command is executed. 
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Notes: 


1) When the trace has been maeaa on, certain locations in 
SSFL are changed. SSFI is Hasvered to its original state 
only after the érace is eoupliereis disabled by an FTRF 0 : 
command. Therefore, to restart the user program or use 


SSFI without reloading when the trace has been on, the user 


should make sure that: 
a) FGET+l] is initialized to FARGD 
-b) FSPLT is initialized to 11 0000 06 


c) FSPLT+1 is initialized to FTMHI 


d) FPSTAtl] is initialized to FARGD 


2) The trace program cannot run at the same time as FPSET- 
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TLE sEXAMPLE 14 
202 sTHIS EXAMPLE USES TWO FTRN COMMANDS 0 
€ 83. sTHE 4ST FTRN SELECTS VARIABLES AsR of sa sGstst 
eau 3T0 BE PRINTECo THIS IS IN EFFECT UNTIL THE 
05 32ND FTRN IS EXESUTEDe THE SELECTEC VARI AELES 
G06 SARE THEN CHANCED TO AsB sO sE oF 96 sHo THE 
087 sF TRF @ COMPLETELY NISAGLES THE TRACE 
e08 sTHE SSFIC LISTING WITH THE ACDITION OF 
ea9 ;THE FPTRN AND FPTRE ADDED IS NOT SHOWN 
910 coaee ao eo Bae e2 JU SSF] 
gage! ¢ eoeoee | 
G11 @ome2 o ee oeoo 11 FTRN 7&7 — EPRINT AsBsC sD sl oGsHol- 
@OABOS 2 BAB757 : 
@12 @0f04 @ 0B BAL 27 FLOX W 
COeOl 1 284022 
G13 @98@@6 8 @O #e88 @1 FLOA X 3 Y=X#Y 
@GO27 1 €BBH23 
214 e@88@12 8 28 B60e @5 FMPY Y 
GC@eit 1 eeeass 
€15 @@ei12 @ Ce EAB 2 FSTA Y 
ece@iz 1 goee25 | 
016 aee14 o eo Bee 26 FJIX 0-6 ;D0NE LOOP 3 TIMES? 
GCGRFIE 1 BBE OLE 
@17 oeeté ¢ eo oeoe 11 FTRN 367 PPRINT AsBsC sf sF yGoH 
@@@17 2 &€80367 
618 @e@@2e 8 28 BFE B1 FLOA X 
go@21 1 gaee?3 
€@19 @@@22 8 @8 C888 B6 FOIV Y 
g0@23 1 @a0025 
822 #0824 @ @8 8888 B2 FSTA Z 
goe25 1 o0a837 3 | 
g21 eo@26 B eo BeOD 12 FIRE @ sTURN TRACE OFF 
go827 @ cooced 
922 Bo03e @ CB Bean co FEXT 
@23 860631 202 @108 Of FOM HLT 
€24 @8@@32 8 177775 Ws WROD ~~ sLCOF COUNT 
@25 80832 ¢€ 850008 Xs WROD FQG@Esze23 3 Fol . 
CAG34 @ FBA2R3 
26 BORSE & C4AACD Y: WRD 4Y@GA@ls2#2 3208 
O@F36 @ CBA2L2 . , , 
27 ¢€@837 & @ag800 Ze WRO #39 3308 
gogue @ oooeed 
a28 sEDITED SFCO TAPE FOLLOWSe AN 
29 sNLIST WAS ADDED AT THE BEGINNING 
30 3T0 CUT DOWN ASSEMBLY LISTING TIME 
031 NLIST 7 


G44 J ‘ €80841 END 
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88 Beee 
#900231 
88 88B2 
eo2e0eo 
e2 6291 
#088626 
ee 8F82 
80 0168 
eae 8re 


83 


G3 
et 
86 
F2 


#8 
23 


 €@BBESG 
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sEXAMPLE 2 - THIS EXAMPLE PRINTS ALL © VARIA®LES 
sFOR RECURSION LEVELS 1 AND 20¢ THE USER EXTENFED 
sFUNCTION IS AT RECURSION LEVEL 2 AND ITS ENTRY 
sPOINT KAS BEEN ACDED TO SSFIC AT COCE 270 THIS 


sSTEP IS NOT SHOWNoe 
ENTRY FPUEN 
JU $SFI 
FTRN 777 SPRINT Asaf ss sk oGatal 
FTRF 2 sMAX TRACE LEVEL=2 
FLOX X 
FLDAD. X+1 sFETCH ARG DEFERRED 
FSTA Y 
FUFN Y ; USER EXTENDED FUNCTION 
FUIX o-6. ; DONE? 
FIRE ¢ sYESs TRACE OFF 
FEXT 
FOM HLT 
X: WRD -2 sLCOP COUNT 
WRD cCSOQ-1 SFETCH ADR» CEFERRED 
WRD CEa-t STORE ADRs DEFERRED 
Y: WRO O98 SFUFN ARGo 
25 WROD 764GQs211 $s58008 
rSg: WRD 620083226 $5808 
WRO S@O00s224 stfoe 
FUFR=27 USER FUNCTION CODE 


sUSER EXTENCEC FUNCTION. - INCLUDEC IN 

s3SAME ASSEMBLY AS CODE WHICH USES IT (AEOVE) 
sFOR SAKE OF SPACE IN THIS EXAMPLE o 

FPUFN: JU FARGD 


FM. AXsARE+1 


JU SSFI sENTER LEVEL 2 


FLOA Z 35€002/Y 


ARG: FOIV @ ; 


FSTAD X42 
FEXT 
JU -FGET 
SFCC TAPE 
NLIST 

ENC 


sEDI TED FOLLCWS WITH NLIST 


> 


mee 1D D0 ND me 00 0 00 0 ee 


B 


OBOB4 
OBBGE 
62818 


06012 
AGHA 


iY a7 kv & 


Q0045 
GOGAT 
00051 


64053 


60016 
ABBIC 
G2Gle 
OO014 


GOGAS 


QOGALT 
G0251 
GG053 
BGO16 
@ge26 


C 


@9G1e2 


O9G27 


26101 
OOGGe 


AAARQT - 


REF RIS OE 


O6001 
O2ZG06 
SE1Ge2 
GBSEOH 
GGS26 
QOIWBIs 


EBOG82 . 


82937 


OBOO1 


26866 
@9182 
HHSGEO 
O8EGLE 
88612 


D 


BEBBOO 
GABGAS 
177776 
177776 
177776 
177776 
177776 
177776 
177776 
177776 


197777 
177777. 


177777 
177777 
177777 
177777 
177777 
177777 
2090 


PRINTOUT FROM EXAMPLE 2 


t*) 


Mea ave Qo eaeoauagaoeaareea 


oa] 


MQeonoaeveg eon ago0dcoo eg: a0 oan 


G 


+6-992202E-21 
+6-902202E-21 
+6-9G2202E-21 
+5.-GG0900E+G1 


+5.,AQGGGGE+G1 
aed 5 a. 


eww ey ry Kk’ 44 


+5-Q08000GE+O01 
+5eG9000GE+G2 


| +1.990000E+01 


+1-600000E+@1 


+1.800050E+@01 


+1.9900906E+01 
+1-800960E+O1 
+1.-880909E+@01 
+1-2G006G0E+O1 
+5-G@0000@E+92 


+5-OOCOSGEt+O1 | 


+5-9G00G5E+31 


+5¢GQOGGGSE+GO1 © 
+5-GOOGOGE+O1 | 


H 


BOG05 
90024 
00033 


80027 


90831 
02027 
29933 


G9017 
90035 


00027 


086931 
QO927 
60035 


GOG17 
88621 
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I 
GBAGBB2 ~ 
177776 


+5-O000GHE+G1 
+H e-GOOCOGE+09 


+5-G09000E+02 
+5-OL0000E+O1 
+5-GE00G0E+O01 


GSEH10 
+1.090000E+@1 


+5. 2O008GE+@1 


+5. O0GG0GE+G2 
+1.O9506GB0E+91 
+1 -OQSGG0E+G1 


080614 


BOBOAS 


eAO1 
4 
283 
264 
e@5 
286 
@97 


® 8&8 
009 
818 
G11 
B12 
G13 
014 
#15 
016 
817 
918 
@19 
820 
021 
#22 
823 
@24 
@25 
026 
827 
#28 
#29 
@3@ 
31 
832 
833 
@34 


#35 
236 


@37 


038. 


849 


Gaaee 
70604 
@OR82 
GBea? 
eeres 
OBeBS 


ane. 


88807 
eoeie 
@eeit 
GGG12 
GOR1e 
eeei4 
G@OB15 
08816 
@@617 
OeF2e 
@e@e2i 
GBE22 
@8R22 
8ee24 
Cee2e 
0 BA26E 
@av27 


GOBSe 


88831 
8852 
88832 
8E834 


AOR3SE 


G8F36 


00837 
Coe4e 
09841 
eae¢se2 
CBA43 
gory 
ear4e 
OAE4E 
OG847 
2865e 
68e51 
BBES2 
OGE52 


99es4 


@BESE 


QSmnr BM OMQOQOMHEYPHRANARHOEYHEAKrPAKHAYKYANRADAAAA S 


ReerPrawnretane*2o 


0 2100 
@ Ge 88 
£2 B88 
@82777 
28 86800 
Coeee1 
C8 OL8e 
98824 
€@ 8201 
@e@2825 
29 @F80 
@60627 
C@ #FBB 
068827 
09 8698 
@ 09818 
0B C208 
€aa0e8 
0G Clee 
G2 6182 
177776 
& 8632 
288832 
208288 
060088 
8764808 
@@ei2i1 
862000 
838226 
858 CeB 
eoe2e4 


0g 
ee 


" 288027 


60 8108 
CULT 
11 ‘egoe 
¢o0e5o 
Ga e108 
eeceee 
ee eroe 
990024 
eg Cease 
ao00ea 
eo ore 
690026 
08 8608 
oa O18 
oaaece 


a3 
86 
e3 
a1 
06 
G2 


08 


3 


‘ @89@56 
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sEXAMPLE 3 

S3THIS IS THE SAME AS EXAMPLE 2 
sEXCEPT THE MAXIMUM RECURSION 
sLEVEL PRINTEC IS LEVEL 14 DUE 
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3T0 THE FTRF 
ENTRY FPUFN 


J COMMAND 6 


JU $SFI 
FTRN 777 SPRINT AsBol sO sEsF sGaH ol 
FTRF 4 —3MAX TRACE LE VEL=7 
FLOX Xx 
FLDAD X+#4 3FETCH ARG DEFERRED 
ESTA Y | 
FUFN Y sUSER EXTENDED FUNS TION 
FIIX e-6 sD ONE? 
FTRF @ YES» TRACE OFF 
FEXT 
FOM HLT 
Xx: WROD -2 3LOOP COUNT 
WROD c&@-4 FETCH ADRs CEFERRED 
WRO C&E-4 STORE AOR» DEFERRED 
Y: WROD @s@ sFUFN ARGo 
7: WROD 7€428s211 $358G08 
Cog: WRO 6222303226 35208 
WROD S202 2s274 $40 0B 
FUFN=27 3USER FUNCTION CODE 


sUSER EXTENDED FUNCTION 
3SAME ASSEMELY AS CODE WHICH USES IT 


- INCLUDED IN 
(AS OVE } 


sFORK SAKE OF SPACE IN THIS EXAMPLE o 


FPUFNs JU FAREC 


RM  AXsARC#14 
JU SSFI 
FLOA Z 
ARG: FOIV @ 
FSTAC X42 


FEXT 


JU FGET 


sENTER LEVEL 2 


50000/Y 


sEDITED SFCCO TAPE FOLLOWS WITH NLIST 


NLIST 
END 


> 


Ll no cE oe oa ool meal oo ee 


B 


BOB04 
BBG06 


BO01G. 


ga912 
OGG14 
OGG16 


Q2G10 


Q2OG12 
O9OB14 
BOG16 
GBD20 


C 


92912 


OOBLT 


BBG101 
GOGG2 
98537 
@6026 
O@191 


CERB2 


88037 
BUCS 6 
68812 


D 


GBOZBG 


OGBSAG 
177776 
177776 
177776 


177776 


177777 
177777 
177777 
77777 
SEBGOR 


‘a 


Qeeoeo2.oeaqne 8 


F-9 


PRINTOUT FROM EXAMPLE 3 


"ry 


VNanaaqnaanaeangs 


G 


+6e902202E-21 
+6e9G20G02E-21 


+6-992282E-21 


+5-G9008095E+01 
+5 e Ob E08DE+91 
+1-GGE00CE+O01 
+1-905000E+01 
+1-Q00C0G0E+01 
+1-609909GE+91 


+5-Q20090E+01 . 
+5e90GGOGE+B1 
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I 


OEGEG1 
177776 


(+5-O09009GE+01 


+Q -GB90G0E+EE 


Q6GG14 
+1-990GGGE+@1 
+5.0G90G@E+G1 


BEAK 
BO6CEGAG 
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G-1 
APPENDIX G 
System Storage Requirements 

Routine Model 30 Model 40 | Description 
SSFI 1360, ig 7608 (496, 5) Basic package 
SSFIC 110 (72) | 110 (72) . Command ‘sete 
SSFEC 110 (72) 110 (72) Ext. command table 
@SCF 406 (262) 367 (247) - char/float pt. 
@SFC - 306 (198) 263 (179) float pt./char 
‘(GFXC 213 (139) 175 (125) conversion common 
FPSIN 173 (123) 153 (107) 
FPAIN 146 (162) 145 (101) 
FPLNE 164 (116) 145 (101) 
FPEXP 201 (129) 150 (104) 
FPSQT 127 (87) 65 (53) 
FPSET 230 (152) 230 (152) error trap 
FPTRC 1020 (528 774 (508) trace routine 


Typical Configuration Storage Requirements 


Basic package 


no conversion 1470 (824) 1070 (568) 
Basic package 

with conversion 2617 (1423) 2137 (1119) 

extended Functions 1055 (557) 722 (466) 
Total system* 3674 (1980) — 3061 (1585) 


(no debug features) 
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